home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 86 / Digital_Talk_86_2009-05-01_Digital_Talk_de_Side_C.d64 / seq write (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 0 ifpeek(49152)=1 then poke49152,0:goto14
  2. 1 ifa=0 then a=1:load"zs",8,1
  3. 2 ifa=1 then a=2:load"c800",8,1
  4. 4 ifa=2 then a=3:le$="level ":input"level";ll$:le$=le$+ll$
  5. 5 ifa=3 then a=4:loadle$,8,1
  6. 6 poke53272,29:sys51200
  7. 7 fori=1024 to 1024+999:ifpeek(i)=73 then s=s+1:pokei,42
  8. 8 next
  9. 9 print"taste[154]":poke198,0:wait198,1
  10. 10 print"[147]anzahl symbole:";s;chr$(13);"[154]seq-datei = ";"l ";ll$;"[154]"
  11. 11 rem--------------------------------
  12. 12 if peek(49152)<>1 then poke49152,1:poke53272,21:list 13-50:end
  13. 13 rem--------------------------------
  14. 14 poke 49152,0:l$="l 00":rem seq-datei
  15. 15 rem--------------------------------
  16. 16 rem bei dummy datei bei lv letztes          level eingeben
  17. 17 rem und leitermauer wert 9
  18. 18 rem--------------------------------
  19. 20 lv=00:rem level
  20. 21 rem==---------
  21. 30 sy=00:rem anzahl symbole
  22. 31 rem==-------------------
  23. 40 lm=0:rem leitermauer unten 0=aus1=an
  24. 41 rem= 2=leiter statt mauer
  25. 42 rem----------------------------
  26. 50 lu=0:rem leitermauer oben 0=aus 1=an
  27. 51 rem= 2=leiter statt mauer
  28. 60 rem----------------------------
  29. 500 open 1,8,2,"@:"+l$+",s,w"
  30. 520 print#1,lv
  31. 525 print"level = ";lv
  32. 530 print#1,sy
  33. 535 print"anzahl symbole = ";sy
  34. 540 print#1,lm
  35. 542 print#1,lu
  36. 545 print"leiter unten = ";lm
  37. 547 print"leiter oben = ";lu
  38. 640 close 1
  39.